﻿Imports System.IO
Imports DTO
Imports BUS
Public Class UserControlImport

    Private Sub btnChonFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnChonFile.Click
        Try
            Dim open As OpenFileDialog = New OpenFileDialog()
            open.Filter = "Name.xls|*.xls" ' | All file.(*.*)|*.*"
            If open.ShowDialog = DialogResult.OK Then
                txtDuongDanFile.Text = open.FileName
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            Return
        End Try
        
    End Sub
    Private Sub UserControlImport_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub btnImport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnImport.Click
        Dim tsBUS
    End Sub
End Class
